home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
A-COMAL Series
/
(k)aaq.d64
/
h.dat
< prev
next >
Wrap
Text File
|
2007-02-28
|
1KB
|
86 lines
8000 FOR J:=1 TO 4 DO //H1
8010 PENUP
8020 FORWARD 2
8030 PENDOWN
8040 FORWARD 9
8050 PENUP
8060 FORWARD 6
8070 PENDOWN
8080 FORWARD 9
8090 PENUP
8100 BACK 26
8110 LEFT 90
8120 FORWARD 1
8130 RIGHT 90
8140 ENDFOR J
8150 //
8160 FOR J:=1 TO 12 DO //2
8170 PENDOWN
8180 FORWARD 11
8190 PENUP
8200 FORWARD 6
8210 PENDOWN
8220 FORWARD 11
8230 PENUP
8240 BACK 28
8250 LEFT 90
8260 FORWARD 1
8270 RIGHT 90
8280 ENDFOR J
8290 //
8300 FOR J:=1 TO 6 DO //3
8310 PENDOWN
8320 FORWARD 28
8330 PENUP
8340 BACK 28
8350 LEFT 90
8360 FORWARD 1
8370 RIGHT 90
8380 ENDFOR J
8390 //
8400 FOR J:=1 TO 2 DO //3.5
8410 PENDOWN
8420 FORWARD 11
8430 PENUP
8440 FORWARD 6
8450 PENDOWN
8460 FORWARD 11
8470 PENUP
8480 BACK 28
8490 LEFT 90
8500 FORWARD 1
8510 RIGHT 90
8520 ENDFOR J
8530 //
8540 FOR J:=1 TO 14 DO //4
8550 PENUP
8560 FORWARD 2
8570 PENDOWN
8580 FORWARD 9
8590 PENUP
8600 FORWARD 6
8610 PENDOWN
8620 FORWARD 9
8630 PENUP
8640 BACK 26
8650 LEFT 90
8660 FORWARD 1
8670 RIGHT 90
8680 ENDFOR J
8690 //
8700 FOR J:=1 TO 2 DO // 5
8710 PENUP
8720 FORWARD 4
8730 PENDOWN
8740 FORWARD 5
8750 PENUP
8760 FORWARD 10
8770 PENDOWN
8780 FORWARD 5
8790 PENUP
8800 BACK 24
8810 LEFT 90
8820 FORWARD 1
8830 RIGHT 90
8840 ENDFOR J